Application.ModelessCmd("g3")
Application.ModelessCmd("gd3")
Application.StatusBarText = "Set Grids = 3"